home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Libraries / SAT 2.1.2 / Collision][ ƒ / sMrEgghead][.c < prev    next >
Encoding:
Text File  |  1994-06-02  |  1.5 KB  |  36 lines  |  [TEXT/KAHL]
  1. HandleMrEgghead (SpritePtr me)
  2.     {
  3.         GetMouse(&me->position);
  4.  
  5. /*This time, let's make sure Mr Egghead is always visible!*/
  6.         if (me->position.v < 0)
  7.             me->position.v = 0;
  8.         if (me->position.h < 0)
  9.             me->position.h = 0;
  10.         if (me->position.v > gSAT.offSizeV - 32)
  11.             me->position.v = gSAT.offSizeV - 32;
  12.         if (me->position.h > gSAT.offSizeH - 32)
  13.             me->position.h = gSAT.offSizeH - 32;
  14.  
  15.  
  16.         if (me->mode < 0) /*we have taken a bite in a bad apple recently*/
  17.             {
  18.                 me->face = yuckFace;
  19.                 me->mode = me->mode + 1;
  20.             }
  21.         else if (me->mode == 0) /*nothing special recently*/
  22.             me->face = mrEggheadFaces[2];
  23.         else
  24.             { /*ate an apple recently - chew!*/
  25.                 me->mode = me->mode - 1;
  26.                 me->face = mrEggheadFaces[me->mode % 4];
  27.             };
  28.     }
  29.  
  30.     pascal void HitMrEgghead (SpritePtr me, SpritePtr him)
  31.     {
  32. /* Hit something! We can take whatever action we need here, but in this case,*/
  33. /* we let sApple decide. (We could have omitted this function altogether */
  34. /* and passed nil as hittask to NewSprite.)*/
  35.     }
  36.